home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD013a.dsk / JUKEBOX.bas < prev    next >
BASIC Source File  |  2003-06-12  |  908b  |  16 lines
  1. 0  ONERR  GOTO 3
  2. 1  GOTO 10
  3. 3  CALL  -211: RESUME 
  4. 10  TEXT : HOME : RESTORE 
  5. 20  DIM DISPLAY$(10)
  6. 30  FOR I = 0 TO 9: READ DISPLAY$(I): NEXT I
  7. 31 A = 0
  8. 40  FOR I = 23 TO A +1  STEP  -1: VTAB I: PRINT DISPLAY$(A): NEXT I:A = A +1:: CALL  -868: CALL  -958: IF A <9  THEN  GOTO 40
  9. 60  VTAB 3: FOR I = 27 TO 40: PRINT  TAB( I)" ";: NEXT I: VTAB 15: HTAB 1
  10. 61  VTAB 4: PRINT "                                        "
  11. 63  VTAB 15: HTAB 15: PRINT "?": VTAB 15: HTAB 15: GET R: IF R < >1  AND R < >2  THEN  GOTO 63
  12. 64  VTAB 15: HTAB 15: PRINT R: IF R = 1  THEN  PRINT  CHR$(13) + CHR$(4)"RUN JUKEBOX PROGRAM PART 1"
  13. 65  PRINT  CHR$(13) + CHR$(4)"RUN JUKEBOX PROGRAM PART 2"
  14. 60000  DATA    "......JUKEBOX MUSICAL DUET PROGRAM......",".......WRITTEN BY JEFF MARRACCINI.......","","","SELECT:","   1. JUKEBOX PROGRAM PART 1","   2. JUKEBOX PROGRAM PART 2"  
  15. 60001  DATA   "","PLEASE PRESS '1' OR '2'."
  16. 60002  DATA  ""